﻿
Public Class SolicitudPaqueteBE

    'Nuevo servicio
    Dim iCodSolicitud As Integer
    Dim strPaquete As String
    Dim strProveedor As String
    Dim strServicios As String
    Dim strObservaciones As String
    Dim strFechaVigIni As String
    Dim strFechaVigFin As String
    Dim strUsuarioCreador As String
    Dim strUsuarioActualiza As String

    'agregados para consulta
    Dim strEstado As String
    Dim strFInicio As String
    Dim strFFin As String

    Public Sub New()

    End Sub

    Public Sub New(ByVal Codigo As Integer)
        iCodSolicitud = Codigo
    End Sub
    Public Property CodSolicitud() As Integer
        Get
            Return iCodSolicitud
        End Get
        Set(ByVal value As Integer)
            iCodSolicitud = value
        End Set
    End Property
    Public Property NombrePaquete() As String
        Get
            Return strPaquete
        End Get
        Set(ByVal value As String)
            strPaquete = value
        End Set
    End Property
    Public Property Proveedor() As String
        Get
            Return strProveedor
        End Get
        Set(ByVal value As String)
            strProveedor = value
        End Set
    End Property
    Public Property Servicios() As String
        Get
            Return strServicios
        End Get
        Set(ByVal value As String)
            strServicios = value
        End Set
    End Property
    Public Property Observaciones() As String
        Get
            Return strObservaciones
        End Get
        Set(ByVal value As String)
            strObservaciones = value
        End Set
    End Property
    Public Property FechaVigenciaInicio() As String
        Get
            Return strFechaVigIni
        End Get
        Set(ByVal value As String)
            strFechaVigIni = value
        End Set
    End Property
    Public Property FechaVigenciaFin() As String
        Get
            Return strFechaVigFin
        End Get
        Set(ByVal value As String)
            strFechaVigFin = value
        End Set
    End Property
    Public Property UsuarioCreador() As String
        Get
            Return strUsuarioCreador
        End Get
        Set(ByVal value As String)
            strUsuarioCreador = value
        End Set
    End Property

    Public Property UsuarioActualiza() As String
        Get
            Return strUsuarioActualiza
        End Get
        Set(ByVal value As String)
            strUsuarioActualiza = value
        End Set
    End Property

    Public Property Estado() As String
        Get
            Return strEstado
        End Get
        Set(ByVal value As String)
            strEstado = value
        End Set
    End Property

    Public Property FechaInicio() As String
        Get
            Return strFInicio
        End Get
        Set(ByVal value As String)
            strFInicio = value
        End Set
    End Property

    Public Property FechaFin() As String
        Get
            Return strFFin
        End Get
        Set(ByVal value As String)
            strFFin = value
        End Set
    End Property

End Class
